home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / punk.lzs / PUNKA.MF < prev    next >
Text File  |  1991-04-21  |  2KB  |  61 lines
  1. % Punk accents
  2.  
  3. beginpunkchar(oct"022",9,1,1); % \`{}
  4. z1=pp(2.5u,h); z2=pp(.6w,.8h); pd z1; pd z2; draw z1--z2; % diagonal
  5. endchar;
  6.  
  7. beginpunkchar(oct"023",9,1,1); % \'{}
  8. z1=pp(w-2.5u,h); z2=pp(.4w,.8h); pd z1; pd z2; draw z1--z2; % diagonal
  9. endchar;
  10.  
  11. beginpunkchar(oct"136",13,1,1); % \^{}
  12. z1=pp(2.5u,.8h); z2=pp(.5w,h); z3=(w-2.5u,.8h);
  13. pd z1; pd z3; draw z1--z2--z3; % diagonals
  14. endchar;
  15.  
  16. beginpunkchar(oct"024",13,1,1); % \v{}
  17. z1=pp(2.5u,.9h); z2=pp(.5w,.7h); z3=pp(w-2.5u,.9h);
  18. pd z1; pd z3; draw z1--z2--z3; % diagonals
  19. endchar;
  20.  
  21. beginpunkchar(oct"025",11,1,1); % \u{}
  22. z1=pp(2u,h); z2=pp(.5w,.75h); z3=pp(w-2u,h);
  23. pd z1; pd z3; draw flex(z1,z2,z3); % stroke
  24. endchar;
  25.  
  26. beginpunkchar(oct"026",12,1,1); % \={}
  27. z1=pp(u,.8h); z2=pp(w-u,.8h); pd z1; pd z2; draw z1--z2; % bar
  28. endchar;
  29.  
  30. beginpunkchar(oct"137",5,1,1); % \.{}
  31. pd pp(.5w,.9h); % dot
  32. endchar;
  33.  
  34. beginpunkchar(oct"177",13,1,1); % \"{}
  35. pd pp(1/5w,.9h); pd pp(4/5w,.9h); % dots
  36. endchar;
  37.  
  38. beginpunkchar(oct"176",13,1,1); % \~{}
  39. z1=pp(u,.75h); z2=pp(w-u,.9h); pd z1; pd z2; draw z1{up}..{up}z2; % stroke
  40. endchar;
  41.  
  42. beginpunkchar(oct"175",13,1,1); % \H{}
  43. z1=pp(4u,h); z2=pp(2.5u,.7h); z3=pp(w-2u,h); z4=pp(w-3.5u,.7h);
  44. pd z1; pd z3; draw z1--z2--z4--z3; % diagonals (linked)
  45. endchar;
  46.  
  47. beginpunkchar(oct"027",13,0,0); % Scandinavian loop, for \AA\ and \aa
  48. z0=(.5w,.66h); % point $z2$ of lowercase A
  49. z1=(.5w,.9h); draw z0{z0-(1.5u,0)}..z1..{(w-1.5u,0)-z0}z0; % loop
  50. endchar;
  51.  
  52. beginpunkchar(oct"030",13,.5,.5); % Cedilla, for \c c
  53. z1=(.6w,0); z2=pp(.6w,-.1h); z3=pp(2.5u,-.1h);
  54. pd z3; draw z1--z2--z3; % stroke
  55. endchar;
  56.  
  57. beginpunkchar(oct"040",11,.5,.5); % Polish cross, for \L\ and \l
  58. z1=pp(0,.25h); z2=pp(4u,.4h); pd z1; pd z2; draw z1--z2; % diagonal
  59. endchar;
  60. ligtable oct"040": "l" kern -charwd, "L" kern -charwd;
  61.